10.03.2014
       .    -  .   ,   .    ,     ,    .   ZXSpin,    ,     .    ,       .      "DelphiSpec".     Delphi7   ,   -   .
 TDXPaintBox. :(       .      ,      ,   TPaintBox, TBitMap,  .     .        24-   32-   .     . :)    ,  10  ,    .

11.03.2014
     .     :

    //Keep the emulation running at the correct speed by
    // adding a delay to ensure that interrupts are
    // generated at the correct frequency
    lSleep := glInterruptTimer - integer(timeGetTime()) + glDelayOverage;
    If lSleep < 0 Then
    begin
        If glDelayOverage < -40 Then
            glDelayOverage := -40
        Else
            glDelayOverage := lSleep;
    end;

    If lSleep > 0 Then
    begin
        Sleep(lSleep);
        glDelayOverage := glDelayOverage + (glInterruptDelay - lSleep);
        If glDelayOverage > 0 Then glDelayOverage := 0;
    End;

    glInterruptTimer := integer(timeGetTime()) + glInterruptDelay;

  ?  , -  .   :

    //Keep the emulation running at the correct speed by
    // adding a delay to ensure that interrupts are
    // generated at the correct frequency
    // Edited by Reobne

    lSleep := glInterruptTimer - integer(timeGetTime());
    If lSleep < -10 Then begin//    
            // ,    .     .
             glInterruptTimer := integer(timeGetTime()) + glInterruptDelay;
    end;

    If lSleep > 0 Then Sleep(lSleep); //   ,  .

    glInterruptTimer := glInterruptTimer + glInterruptDelay;
    //     

,  !     !     ? :)

   .   :
1.  2  .    .    WinApi,     ,  ,  ,       ,      .
2.    . 
3.     ,        .
4.    ,      -  .
5.      .
6.         .
7.   .

     
Function inb(port : integer) : integer;

            .      . :)

  .    . -   .     Dizzy ! :)

  WinLite   .  .     - ,   .

12.03.2014
,     .    ,    .        ,     .       ,     .
       ,   , !  ,   (-    ,     ) :).    .
    VCL- ,        150 .   ,   .   . :(    CM_ACTIVATE, CM_DEACTIVATE  VCL-  "controls".     .  ,        .     ,     . :)     ,  ,    .
    ,     -    ,      ZX .     NEG  ,       .        .   ,     "".     IFDEF-,   DEFINE-   ().     .
   ,  ZX     ,     -.  16-,   ,  . ,   ,  ,     UPX.      ROM,   , ,   .   ,   . :)
  ,   :
  )   .
  )   .
  )      .
  )   .
  
13.03.2014
  )    WM_ACTIVATE,        (<>0)   (=0)
  ) C  .      .
  )      !!!
  
     ,  -   .   .   (   (ifdef),         snap2exe  :) ).
  ,   1,2,3  .
  
    ,    Math. ,       .  256      ,       .  ,     ,      !    ! :)
  
procedure initParity;
    var lCounter : integer; j : Byte; p : Boolean;
    var powval: integer;
begin
    For lCounter := 0 To 255 do
    begin
        p := True;
        For j := 0 To 7 do
        begin
            PowVal := Trunc(IntPower(2, j));
            If (lCounter And powVal) <> 0 Then p := Not p;
        end;
        Parity[lCounter] := p;
    end;
End;

:)   :

procedure initParity; //   
    var lCounter : integer; j : Byte; p : Boolean;
    var powval: integer;
begin
    For lCounter := 0 To 255 do
    begin
        j:=lCounter xor lCounter shr 4;
        j:=j xor j shr 2;
        j:=(j xor j shr 1) and 1;
        Parity[lCounter] := (j=0);
    end;
End;

    :
  )   .
  )   .
  )     .
  
14.03.2014
  )   .       ,  .
  )   !     modZ80    ! 
         CPIR,      ? :)
          UPX- :
          130048 
           101376 
            28672 , 28  !
	   UPX-:
           37888 
            33792 
            4096 , 4!
		   
		    10%,    ! :)
15.03.2014
   )    . 
........................\
        http://kolmck.net/r_system.htm
........................
  system.dcu, sysinit.dcu  .    -VCL    10.  VCL-,      300,     .    KOL    40-60,      .
......................../
  Vladimir Kladov  Avenger[NhT]   .  7680   exe-.  4    UPX!!!!